inst/shiny-apps/Biplot App/ui.R

In bischrob/elemSource: Developed to source artifacts

#' This is a shiny app for use in the elemSource package.

# User interface ----
uibi <- fluidPage(
  titlePanel("Obsidian Sourcing Interactive Plots"),
  sidebarLayout(
    sidebarPanel(
      radioButtons("source1", label = "Data Source",
                   choices = list("All Data" = 1,
                                  "Assigned" = 2,
                                  "Unassigned" = 3),
                   selected = 1, inline = F),
      selectInput("label1", label = h5("Legend Label"),
                  choices = list( "Original" = "Source",
                                  "Discriminant" = "Discriminant",
                                  "Mahalanobis" = "Mahalanobis"),
                  selected = 12),
      selectInput("elem1", label = h5("Element 1"),
                  choices = list("Rb" = 7,
                                 "Sr" = 8,
                                 "Y" = 9,
                                 "Zr" = 10,
                                 "Nb" = 11),
                  selected = 7),
      selectInput("elem2", label = h5("Element 2"),
                  choices = list("Rb" = 7,
                                 "Sr" = 8,
                                 "Y" = 9,
                                 "Zr" = 10,
                                 "Nb" = 11),
                  selected = 8)
    ),
    mainPanel(
      h3(textOutput("caption")),
      hr(),
      plotlyOutput("plotly1", height = "800px", width = "950px")
    )
  )
)